enum {
  BEGIN=0x10000,
  PROGRAM,
  PROCEDURE,
  FUNCTION,
  VAR,
  LABEL,
  CONST,
  TYPE,
  INTEGER,
  REAL,
  STRING,
  BOOLEAN,
  IF,
  THEN,
  ELSE,
  WHILE,
  DO,
  REPEAT,
  UNTIL,
  FOR,
  TO,
  DOWNTO,
  GOTO,
  CASE,
  OF,
  TRUE,
  FALSE,
  OR,
  AND,
  NOT,
  MOD,
  DIV,
  READ,
  READLN,
  WRITE,
  WRITELN,
  END,
  REFINTEGER,
  REFREAL,
  REFSTRING,
  REFBOOLEAN
};

extern iskeyword(char const *);